<!--webbot bot="HTMLMarkup" alt="[&lt;b&gt;This is the OE5 Scroll Script&lt;/b&gt;]" StartSpan --></P>
  <DIV id=imageholder 
  style="LEFT: 0px; POSITION: absolute; TOP: 0px; Z-INDEX: -1">
  <SCRIPT language=VBScript>
<!--
direction="down"   ' Assim, a figura roda para baixo. Mude a direo da rolagem aqui: "up" (para cima) ou "left" (para a esquerda) ou "down" (para baixo) ou "right" (para a direita)
sizew=300 ' enter the width of the scrolling image here
sizeh=416 ' enter the height of the scrolling image here
nail=0
source=document.body.background
tall=((screen.height\sizeh)+1)*2
wide=(screen.width\sizew)+1
 
if direction="up" then
 max=tall
 axis=sizeh
 placement=0
 reset=0
elseif direction="left" then
 max=wide
 axis=sizew
 placement=0
 reset=0
elseif direction="down" then
 max=tall
 axis=0
 placement=-sizeh
 reset=-sizeh
elseif direction="right" then
 max=wide
 axis=0
 placement=-sizew
 reset=-sizew
end if
 
document.write "<pre>"
for temp=0 to max
 if direction="up" then
  document.write "<img id=pics"&temp&" src><br>"
  elseif direction="left" then
  document.write "<img id=pics"&temp&" src>"
 elseif direction="down" then
  document.write "<img id=pics"&temp&" src><br>"
 elseif direction="right" then
  document.write "<img id=pics"&temp&" src>"
 end if
 document.all("pics"&temp).src=source
next 
document.write "</pre>"
 
document.body.background=" "
window.status="Click the image to Stop or Restart the scroll" 
 
sub scroll() 
 if nail=1 then
  exit sub
 end if
 if placement < axis then  
  setTimeout "move", 1 
 else 
  placement=reset
  setTimeout "move", 1 
 end if 
end sub 
 
sub move()
 if direction="up" then
  imageholder.style.top=-placement  
 elseif direction="left" then
  imageholder.style.left=-placement
 elseif direction="down" then
  imageholder.style.top=placement
 elseif direction="right" then
  imageholder.style.left=placement
 end if
 placement=placement+1
 setTimeout "scroll", 1 
end sub 
 
sub imageholder_onclick()
 if nail=0 then
  nail=1
 else
  nail=0
 end if
 scroll()
end sub 
 
scroll() 
-->
</SCRIPT>
